home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / cisecol.arc / LOGO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-12-13  |  132 b   |  7 lines
  1. 10  DEFINT A-Z:KEY OFF:SCREEN 0:WIDTH 80:DEF SEG=&HB800
  2. 20  CLS:LOCATE ,,0:BLOAD "SCRN.DAT",0
  3. 25  LOCATE 18,65,0:PRINT DATE$
  4. 30  LOCATE 20,66:PRINT TIME$
  5. 40  A$=INKEY$:IF A$="" THEN 30
  6. 50  CLS:SYSTEM
  7.